home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 November
/
64er_Magazin_88-11_1988_Markt__Technik_de_Side_A.d64
/
film maker2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
930b
|
31 lines
4 ifa=2thengosub90:sys828:close2:goto70
5 a=a+1:ifa=1thengosub100:load"mpmloader",8,8
6 poke56,157:poke52,157
7 print"[147]sprite-pics: filmmaker with 9 pictures
8 [133]"diskette mit sprite-bildern einlegen";a$:[134] f(15)
10 [140]:[129]e[178]0[164]9:[135] f(e):[130]
12 t[178]0
20 [135]a$:[139]a$[178]"*"[167]60
30 [151]252,[181](f(t)[173]256):[151]251,f(t)[171][194](252)[172]256:[158]828,a$
40 t[178]t[170]1:[137]20
60 [133]"programmdisk einlegen";a$
61 [153]"":[151]5631,t
62 [151]251,244:[151]252,21:[151]254,[181](f(t[170]1)[173]256)
65 [151]253,f(t[170]1)[171][194](254)[172]256:[147]"mpsaver",8,8
70 a[178]5:[153]"loadfilm ist bereit":[128]
90 [133]"loadbitte filmdisk einlegen";a$:[153]"bitte namen angeben"
95 [142]
96 [131] 8192,16384,20480,24576
97 [131] 32768,40960
98 [131] 49152,53248,57344,61440
100 [133]"load hintergrundfarbe 12cmdcmdcmdcmd";h:[151]5623,h
110 [133]" spritefarbe 1cmdcmdcmd";h:[151]5620,h
115 [151]5624,0:[133]" multicolor-bilder (j/n)";m$
116 [139]m$[179][177]"j"[175]m$[179][177]"n"[167]115
117 [139]m$[178]"j"[167][151]5624,255:[137]120
118 [137]150
120 [133]" multi-farbe 1 11cmdcmdcmdcmd";h:[151]5621,h
130 [133]" multi-farbe 2 0cmdcmdcmd";h:[151]5622,h
150 [142]
1000 [131] 1,2,3,4,5,6,7,8,9,*